home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestVBAudioEditor2 / frmConvert.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-04  |  6.3 KB  |  208 lines
  1. VERSION 5.00
  2. Begin VB.Form frmConvert 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Convert Sample Type"
  5.    ClientHeight    =   3915
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3555
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3915
  13.    ScaleWidth      =   3555
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.Frame frmFrequency 
  17.       Caption         =   "Frequency (Hz)"
  18.       Height          =   3645
  19.       Left            =   135
  20.       TabIndex        =   5
  21.       Top             =   135
  22.       Width           =   2040
  23.       Begin VB.OptionButton opFq 
  24.          Caption         =   "6000"
  25.          Height          =   285
  26.          Index           =   0
  27.          Left            =   525
  28.          TabIndex        =   15
  29.          Top             =   270
  30.          Width           =   885
  31.       End
  32.       Begin VB.OptionButton opFq 
  33.          Caption         =   "8000"
  34.          Height          =   285
  35.          Index           =   1
  36.          Left            =   525
  37.          TabIndex        =   14
  38.          Top             =   600
  39.          Width           =   885
  40.       End
  41.       Begin VB.OptionButton opFq 
  42.          Caption         =   "11025"
  43.          Height          =   285
  44.          Index           =   2
  45.          Left            =   525
  46.          TabIndex        =   13
  47.          Top             =   930
  48.          Width           =   885
  49.       End
  50.       Begin VB.OptionButton opFq 
  51.          Caption         =   "12000"
  52.          Height          =   285
  53.          Index           =   3
  54.          Left            =   525
  55.          TabIndex        =   12
  56.          Top             =   1260
  57.          Width           =   885
  58.       End
  59.       Begin VB.OptionButton opFq 
  60.          Caption         =   "16000"
  61.          Height          =   285
  62.          Index           =   4
  63.          Left            =   525
  64.          TabIndex        =   11
  65.          Top             =   1590
  66.          Width           =   885
  67.       End
  68.       Begin VB.OptionButton opFq 
  69.          Caption         =   "22050"
  70.          Height          =   285
  71.          Index           =   5
  72.          Left            =   525
  73.          TabIndex        =   10
  74.          Top             =   1920
  75.          Width           =   885
  76.       End
  77.       Begin VB.OptionButton opFq 
  78.          Caption         =   "24000"
  79.          Height          =   285
  80.          Index           =   6
  81.          Left            =   525
  82.          TabIndex        =   9
  83.          Top             =   2250
  84.          Width           =   885
  85.       End
  86.       Begin VB.OptionButton opFq 
  87.          Caption         =   "32000"
  88.          Height          =   285
  89.          Index           =   7
  90.          Left            =   525
  91.          TabIndex        =   8
  92.          Top             =   2580
  93.          Width           =   885
  94.       End
  95.       Begin VB.OptionButton opFq 
  96.          Caption         =   "44100"
  97.          Height          =   285
  98.          Index           =   8
  99.          Left            =   525
  100.          TabIndex        =   7
  101.          Top             =   2910
  102.          Width           =   885
  103.       End
  104.       Begin VB.OptionButton opFq 
  105.          Caption         =   "48000"
  106.          Height          =   285
  107.          Index           =   9
  108.          Left            =   525
  109.          TabIndex        =   6
  110.          Top             =   3240
  111.          Width           =   885
  112.       End
  113.    End
  114.    Begin VB.CommandButton cmdOk 
  115.       Caption         =   "OK"
  116.       Height          =   375
  117.       Left            =   2295
  118.       TabIndex        =   4
  119.       Top             =   2925
  120.       Width           =   1155
  121.    End
  122.    Begin VB.CommandButton cmdCancel 
  123.       Caption         =   "Cancel"
  124.       Height          =   375
  125.       Left            =   2295
  126.       TabIndex        =   3
  127.       Top             =   3405
  128.       Width           =   1155
  129.    End
  130.    Begin VB.Frame frmChannels 
  131.       Caption         =   "Channels"
  132.       Height          =   1005
  133.       Left            =   2295
  134.       TabIndex        =   0
  135.       Top             =   135
  136.       Width           =   1155
  137.       Begin VB.OptionButton opCh 
  138.          Caption         =   "Stereo"
  139.          Height          =   285
  140.          Index           =   1
  141.          Left            =   90
  142.          TabIndex        =   2
  143.          Top             =   630
  144.          Width           =   825
  145.       End
  146.       Begin VB.OptionButton opCh 
  147.          Caption         =   "Mono"
  148.          Height          =   285
  149.          Index           =   0
  150.          Left            =   90
  151.          TabIndex        =   1
  152.          Top             =   270
  153.          Width           =   795
  154.       End
  155.    End
  156. Attribute VB_Name = "frmConvert"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Dim Freq As FrequencyConstants
  162. Dim Chan As ChannelsConstants
  163. Private Sub cmdCancel_Click()
  164.     Unload Me
  165. End Sub
  166. Private Sub cmdOK_Click()
  167.     Unload Me
  168.     frmDialog.AudioEditor1.ConvertSampleType Freq, Chan
  169. End Sub
  170. Private Sub Form_Load()
  171.     Dim ind As Long
  172.     Freq = frmDialog.AudioEditor1.FileInfo.Frequency
  173.     Chan = frmDialog.AudioEditor1.FileInfo.Channels
  174.     Select Case Freq
  175.         Case FQ_6_KHZ: ind = 0
  176.         Case FQ_8_KHZ: ind = 1
  177.         Case FQ_11_KHZ: ind = 2
  178.         Case FQ_12_KHZ: ind = 3
  179.         Case FQ_16_KHZ: ind = 4
  180.         Case FQ_22_KHZ: ind = 5
  181.         Case FQ_24_KHZ: ind = 6
  182.         Case FQ_32_KHZ: ind = 7
  183.         Case FQ_44_KHZ: ind = 8
  184.         Case FQ_48_KHZ: ind = 9
  185.     End Select
  186.     opFq(ind).Value = True
  187.     If Chan = MONO Then opCh(0).Value = True
  188.     If Chan = STEREO Then opCh(1).Value = True
  189. End Sub
  190. Private Sub opCh_Click(Index As Integer)
  191.     If opCh(0).Value = True Then Chan = MONO
  192.     If opCh(1).Value = True Then Chan = STEREO
  193. End Sub
  194. Private Sub opFq_Click(Index As Integer)
  195.     Select Case Index
  196.         Case 0: Freq = FQ_6_KHZ
  197.         Case 1: Freq = FQ_8_KHZ
  198.         Case 2: Freq = FQ_11_KHZ
  199.         Case 3: Freq = FQ_12_KHZ
  200.         Case 4: Freq = FQ_16_KHZ
  201.         Case 5: Freq = FQ_22_KHZ
  202.         Case 6: Freq = FQ_24_KHZ
  203.         Case 7: Freq = FQ_32_KHZ
  204.         Case 8: Freq = FQ_44_KHZ
  205.         Case 9: Freq = FQ_48_KHZ
  206.     End Select
  207. End Sub
  208.